home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / basic / bascomm.zip / MINCOM.BAS < prev    next >
BASIC Source File  |  1987-05-05  |  149b  |  5 lines

  1. 100 CLS:LOCATE 1,1,1:OPEN "COM1:1200,E,7,1" AS #1
  2. 110 IF NOT EOF(1) THEN PRINT INPUT$(1, #1);
  3. 120 IF INSTAT THEN PRINT #1, INKEY$;
  4. 130 GOTO 110
  5.